Visual Basic Source Code

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / crwdemo / font.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1995-12-05 | 11.0 KB | 348 lines

VERSION 2.00 Begin Form Font BackColor = &H00C0C0C0& Caption = "Section and Field Fonts..." ClientHeight = 5370 ClientLeft = 4590 ClientTop = 1185 ClientWidth = 6675 Height = 6060 Left = 4530 LinkTopic = "Form1" ScaleHeight = 5370 ScaleWidth = 6675 Top = 555 Width = 6795 Begin CommonDialog CMDialog1 CancelError = -1 'True FontName = "Arial" FontSize = 10 Left = 90 Top = 4410 End Begin CommandButton Command3 Caption = "Help" Height = 375 Left = 4320 TabIndex = 23 Top = 4320 Width = 1815 End Begin CommandButton Command2 Caption = "OK" Height = 375 Left = 2340 TabIndex = 22 Top = 4320 Width = 1815 End Begin CommandButton Command1 Caption = "Choose Font....." Height = 375 Left = 360 TabIndex = 21 Top = 4320 Width = 1815 End Begin SSPanel Statusbar Alignment = 1 'Left Justify - MIDDLE BorderWidth = 1 Height = 510 Left = 0 TabIndex = 20 Top = 4905 Width = 6675 End Begin SSPanel Panel3D3 Alignment = 1 'Left Justify - MIDDLE BevelInner = 1 'Inset BevelWidth = 2 BorderWidth = 1 Caption = "Panel3D3" Height = 1320 Left = 3420 TabIndex = 8 Top = 2655 Width = 2895 Begin PictureBox Picture1 Height = 1140 Left = 90 Picture = FONT.FRX:0000 ScaleHeight = 1110 ScaleWidth = 2685 TabIndex = 9 Top = 90 Width = 2715 Begin Label Label3 Alignment = 2 'Center Caption = "Crystal Clear!" FontBold = 0 'False FontItalic = 0 'False FontName = "Wide Latin" FontSize = 9 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 555 Left = 1350 TabIndex = 24 Top = 270 Width = 1275 End End End Begin SSPanel Panel3D2 Alignment = 1 'Left Justify - MIDDLE BevelInner = 1 'Inset BevelWidth = 2 BorderWidth = 1 Height = 2400 Left = 3420 TabIndex = 1 Top = 135 Width = 2940 Begin SSFrame Frame3D4 ForeColor = &H00000000& Height = 1410 Left = 180 TabIndex = 7 Top = 810 Width = 2580 Begin SSOption Option3D2 Caption = "Both" Height = 195 Index = 2 Left = 360 TabIndex = 10 TabStop = 0 'False Top = 1035 Width = 1275 End Begin SSOption Option3D2 Caption = "All Fields in Section" Height = 285 Index = 1 Left = 360 TabIndex = 11 TabStop = 0 'False Top = 630 Width = 1995 End Begin SSOption Option3D2 Caption = "All Text in Section" Height = 195 Index = 0 Left = 360 TabIndex = 12 Top = 270 Value = -1 'True Width = 1815 End End Begin SSFrame Frame3D2 ForeColor = &H00000000& Height = 555 Left = 180 TabIndex = 3 Top = 225 Width = 2580 Begin Label Label2 Alignment = 2 'Center BackColor = &H00C0C0C0& Caption = "Choose type to modify" Height = 195 Left = 90 TabIndex = 5 Top = 180 Width = 2445 End End End Begin SSPanel Panel3D1 Alignment = 1 'Left Justify - MIDDLE BevelInner = 1 'Inset BevelWidth = 2 BorderWidth = 1 Height = 3840 Left = 270 TabIndex = 0 Top = 135 Width = 2940 Begin SSFrame Frame3D3 ForeColor = &H00000000& Height = 2580 Left = 180 TabIndex = 6 Top = 855 Width = 2580 Begin SSOption Option3D1 Caption = "All Sections" Height = 195 Index = 0 Left = 270 TabIndex = 14 Top = 225 Value = -1 'True Width = 1410 End Begin SSOption Option3D1 Caption = "Grand Total" Height = 240 Index = 6 Left = 270 TabIndex = 13 TabStop = 0 'False Top = 2160 Width = 1320 End Begin SSOption Option3D1 Caption = "Page Footer" Height = 240 Index = 5 Left = 270 TabIndex = 19 TabStop = 0 'False Top = 1845 Width = 1455 End Begin SSOption Option3D1 Caption = "Group Footer" Height = 285 Index = 4 Left = 270 TabIndex = 18 TabStop = 0 'False Top = 1485 Width = 1545 End Begin SSOption Option3D1 Caption = "Details" Height = 240 Index = 3 Left = 270 TabIndex = 17 TabStop = 0 'False Top = 1170 Width = 1365 End Begin SSOption Option3D1 Caption = "Group Header" Height = 195 Index = 2 Left = 270 TabIndex = 16 TabStop = 0 'False Top = 855 Width = 1635 End Begin SSOption Option3D1 Caption = "Page Header" Height = 195 Index = 1 Left = 270 TabIndex = 15 TabStop = 0 'False Top = 540 Width = 1545 End End Begin SSFrame Frame3D1 ForeColor = &H00000000& Height = 600 Left = 135 TabIndex = 2 Top = 180 Width = 2625 Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& Caption = "Choose Section to modify " Height = 285 Left = 90 TabIndex = 4 Top = 225 Width = 2445 End End End Begin Menu FontFile Caption = "&File" End Sub Command1_Click () On Error GoTo FontErr CMDialog1.Flags = &H2& Or &H200& Or &H100& CMDialog1.Action = 4 CRWFontName = CMDialog1.FontName 'MsgBox "Font Name is=" + CRWFontName CRWFontSize = CMDialog1.FontSize 'MsgBox "Font Size =" + Str(CRWFontSize) If CMDialog1.FontItalic = True Then CRWFontItalic = 1 Else CRWFontItalic = 0 End If If CMDialog1.FontUnderLine = True Then CRWFontUnderline = 1 Else CRWFontUnderline = 0 End If If CMDialog1.FontStrikeThru = True Then CRWFontStrikeThru = 1 Else CRWFontStrikeThru = 0 End If If PESetFont(JobNum, SectionCode, ScopeCode, CRWFontName, 0, 0, 0, CRWFontSize, CRWFontItalic, CRWFontUnderline, CRWFontStrikeThru, 0) = False Then RCode = GetErrorString(JobNum) MsgBox "PESetFont Error #: " + Str(ErrorCode) + " - " + RCode Else Font!Statusbar.Caption = "Section Fonts have been modified!" End If Exit Sub FontErr: 'MsgBox "User hit Cancel" Exit Sub End Sub Sub Command2_Click () Unload Me End Sub Sub Command3_Click () RCode = Shell("Winhelp c:\crw\crw.hlp", 3) If RCode = False Then MsgBox ("RedPoint cannot find the Crystal Help file in C:\CRW directory") End If End Sub Sub FontFile_Click () Unload Me End Sub Sub Form_Load () ScopeCode = 2 End Sub Sub Option3D1_Click (Index As Integer, Value As Integer) Select Case Index Case 0: SectionCode = 0 'PE_AllSections Case 1: SectionCode = 2000 'PE_HeaderSection Case 2: SectionCode = 3000 'PE_GroupHeader Case 3: SectionCode = 4000 'PE_DetailSection Case 4: SectionCode = 5000 'PE_GroupFooter Case 5: SectionCode = 7000 'PE_FooterSection Case 6: SectionCode = 6000 'PE_GrandTotalSection End Select End Sub Sub Option3D2_Click (Index As Integer, Value As Integer) Select Case Index Case 0: ScopeCode = 2 'PE_Text Case 1: ScopeCode = 1 'PE_Fields Case 2: ScopeCode = 1 Or 2 'PE_Text Or PE_Fields End Select End Sub